'************************************************
'AD9851 DDS Ver0.0.1
'2006.10.25
'JA4LAO_Tuneo.Ito
'AT90S2313-10PC
'************************************************
Config Portd = Output

Dim I As Byte
Dim J As Byte
Dim Freqdata As String * 32
Dim Isoudata As String * 8
Dim B As String * 1
Dim Freq As Long
Dim Isou As Byte

Freq = 50000000 * 23.86092942

Isou = 144
Freqdata = Bin(freq)
Isoudata = Bin(isou)                                        '10010000

Waitus 10 : Set Portd.2 : Waitus 30 : Reset Portd.2         'Reset
Waitus 10 : Set Portd.4 : Waitus 30 : Reset Portd.4         'P=>S
Gosub Fqud

For I = 1 To 40
   Waitus 10 : Reset Portd.3 : Waitus 10 : Set Portd.4 : Waitus 10 : Reset Portd.4
Next I
Gosub Fqud

J = 32
For I = 1 To 32
     B = Mid(freqdata , J , 1)
     Gosub Sentaku
     Decr J
Next I

For I = 1 To 8
    B = Mid(isoudata , I , 1)
    Gosub Sentaku
Next I
Gosub Fqud
End

Fqud:
Waitus 10 : Set Portd.5 : Waitus 10 : Reset Portd.5 : Waitus 10
Return

Sentaku:
Waitus 10
Select Case B
           Case "1"
                   Set Portd.3
                   Waitus 10
           Case Else
                   Reset Portd.3
                   Waitus 10
End Select
Set Portd.4 : Waitus 10 : Reset Portd.4 : Waitus 10
Return